1 Public Class FrmLOGIN
2 Dim xuserid As Integer
3 Dim xcountx As Integer
4 Dim ix As Double
5
6 Private Sub FrmLOGIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
7 ' Dim i As Integer
8 ' For i = 0 To 100
9 ' Me.Opacity = Me.Opacity + 1
10 ' Application.DoEvents()
11 ' Next
12 'FILLComboBox ("SELECT FROM TBL_U
13 xcountx = 0
14 xlock = False
15 username = ""
16 xuserid = xUser_ID
17 xUser_ID = 0
18 txtuser.Text = ""
19 txtpassword.Text = ""
20 txtuser.Select()
21 If Not checkServer() Then
22 xUser_ID = 1
23 'Me.Close()
24 FrmSERVERSETTINGS.ShowDialog()
25 End If
26 End Sub
27
28 Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlogin.Click
29 On Error Resume Next
30 Dim timex As String
31 'If e.KeyCode = 13 Then
32 If Not checkServer() Then
33 FrmSERVERSETTINGS.ShowDialog()
34 Exit Sub
35 End If
36 sqlSTR = "SELECT * FROM TBL_Users WHERE Username='" & R_eplace(txtuser.Text) & "' AND userpass ='" & R_eplace(txtpassword.Text) & "'"
37
38 'MsgBox(sqlSTR)
39 ExecuteSQLQuery(sqlSTR)
40 If sqlDT.Rows.Count > 0 Then
41 'MDIMain.Show()
42 For i = 0 To sqlDT.Rows.Count - 1
43 If sqlDT.Rows(i)("username") <> txtuser.Text Or sqlDT.Rows(i)("userpass") <> txtpassword.Text Then
44 MsgBox("Access denied username and password !!!", MsgBoxStyle.Information, "Sales and Inventory")
45 xcountx = xcountx + 1
46 If xcountx >= 3 Then
47 MsgBox("You have reach the maximum time of login !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
48 End
49 End If
50 Exit Sub
51 End If
52 Next
53 'xuserid = xUser_ID
54
55 username = sqlDT.Rows(0)("Username")
56 xUser_ID = sqlDT.Rows(0)("User_id")
57 xUser_Access = sqlDT.Rows(0)("Access_Type")
58
59 timex = TimeOfDay
60
61 _USER.Value = sqlDT.Rows(0)("lastname") & ", " & sqlDT.Rows(0)("firstname") & " " & sqlDT.Rows(0)("middlename")
62
63 sqlSTR = "INSERT INTO TBL_Audit_Log (User_ID, LOGIN) VALUES(" & xUser_ID & ", '" & timex & "')"
64 ExecuteSQLQuery(sqlSTR)
65
66 sqlSTR = "SELECT * FROM TBL_Audit_Log ORDER BY LOG_ID DESC"
67 ExecuteSQLQuery(sqlSTR)
68
69 LOGID = sqlDT.Rows(0)("LOG_ID")
70
71 Audit_Trail(xUser_ID, TimeOfDay, "Login to system ")
72 With MDIMain
73 If UCase(xUser_Access) = UCase("administrator") Or UCase(xUser_Access) = UCase("Sales Agent") Or UCase(xUser_Access) = UCase("Stock Room") Then
74 sqlSTR = "SELECT TBL_Category_Item_File.Item_ID as 'ID', Item_Name as 'Name', TBL_Category_Item_File.Item_Description as 'Description / Item Number', TBL_Stocks_Balances.Item_Price as 'Price', Item_Reorder_Point as 'Reorder Point', Item_QTY as 'CURRENT STOCKS' " & _
75 "FROM TBL_Category_Item_File INNER JOIN " & _
76 "TBL_Stocks_Balances ON TBL_Category_Item_File.Item_ID = TBL_Stocks_Balances.Item_ID " & _
77 "WHERE TBL_Stocks_Balances.Item_QTY <= Item_Reorder_Point"
78 ExecuteSQLQuery(sqlSTR)
79
80 If sqlDT.Rows.Count > 0 Then
81 MsgBox("A Product(s) reach its critical level !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
82 .tmrcritical.Enabled = True
83 Else
84 .tmrcritical.Enabled = False
85 End If
86
87 Else
88 .cmdProductReorder.ForeColor = Color.Black
89 End If
90 End With
91
92 If xuserid <> 0 Then
93 If xuserid <> xUser_ID Then
94 Dim oFrm As Form
95 For Each oFrm In MDIMain.MdiChildren
96 'MsgBox(oFrm.Name)
97 If oFrm.Name <> "FrmBG" And Not _
98 (TypeOf oFrm Is MDIMain) And Not (TypeOf oFrm Is FrmBG) Then
99 FormClose(oFrm)
100 oFrm.Close()
101 End If
102 Next
103 End If
104 'just to make sure check
105 For i = 0 To MDIMain.lstShortCut.Items.Count - 1
106 MDIMain.lstShortCut.Items(i).Remove()
107 Next
108 End If
109
110 With MDIMain
111 ' .tslabellog.Text = username
112 .lblUser.Text = username
113 .lbltoday.Text = Today
114 .aget()
115 .pnadvisory_Admin.Left = .Width - 100
116 .pnAdvisory_Stock.Left = .Width - 100
117 .pnAdvisory_Cashier.Left = .Width - 100
118 .pnAdvisory_SalesAgent.Left = .Width - 100
119 .Timer1.Enabled = True
120 If UCase(xUser_Access) = UCase("Administrator") Then
121 .SystemFileToolStripMenuItem.Enabled = True
122 'Inventory File
123 .MasterFileToolStripMenuItem.Enabled = True
124 .SetCategoryFileToolStripMenuItem.Enabled = True
125 .SetItemFileToolStripMenuItem.Enabled = True
126 .SuppliersToolStripMenuItem.Enabled = True
127 .SuppliersProductToolStripMenuItem.Enabled = True
128 .ProductsReorderPointToolStripMenuItem.Enabled = True
129 .StockOrderToolStripMenuItem.Enabled = True
130 .StockMonitoringToolStripMenuItem.Enabled = True
131 .BarcodeFormToolStripMenuItem.Enabled = True
132 .UnitMeasureToolStripMenuItem.Enabled = True
133 .BusinessInformationToolStripMenuItem.Enabled = True
134 'POINT OF PAYMENTS
135 .PointOfPaymentToolStripMenuItem.Enabled = True
136 .CashieringToolStripMenuItem.Enabled = True
137 .SalesReceiptToolStripMenuItem.Enabled = True
138 'manage users
139 .UserInformationFileToolStripMenuItem.Enabled = True
140 'USERS LOG
141 .AuditTrailToolStripMenuItem.Enabled = True
142 'REPORTS
143 .ReportsToolStripMenuItem.Enabled = True
144 .SupplierProfileToolStripMenuItem.Enabled = True
145 .SupplierProductsToolStripMenuItem.Enabled = True
146 .ProductsReorderPointToolStripMenuItem1.Enabled = True
147 .PurchaseOrderToolStripMenuItem.Enabled = True
148 .PurchaseReceiveToolStripMenuItem.Enabled = True
149 .StockBalancesToolStripMenuItem.Enabled = True
150 'POINT OF PAYMENTS
151 .PointOfPaymentToolStripMenuItem1.Enabled = True
152 .SalesCollectionToolStripMenuItem.Enabled = True
153 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = True
154 .CollectionSummaryReportToolStripMenuItem.Enabled = True
155 .SalesReceiptToolStripMenuItem1.Enabled = True
156 .ProductPacingReportToolStripMenuItem.Enabled = True
157
158 ElseIf UCase(xUser_Access) = UCase("Cashier") Then
159 .SystemFileToolStripMenuItem.Enabled = True
160 'Inventory File
161 .MasterFileToolStripMenuItem.Enabled = False
162 .SetCategoryFileToolStripMenuItem.Enabled = False
163 .SetItemFileToolStripMenuItem.Enabled = False
164 .SuppliersToolStripMenuItem.Enabled = False
165 .SuppliersProductToolStripMenuItem.Enabled = False
166 .ProductsReorderPointToolStripMenuItem.Enabled = False
167 .StockOrderToolStripMenuItem.Enabled = False
168 .StockMonitoringToolStripMenuItem.Enabled = False
169 .BarcodeFormToolStripMenuItem.Enabled = False
170 .UnitMeasureToolStripMenuItem.Enabled = False
171 .BusinessInformationToolStripMenuItem.Enabled = False
172 'POINT OF PAYMENTS
173 .PointOfPaymentToolStripMenuItem.Enabled = True
174 .CashieringToolStripMenuItem.Enabled = True
175 .SalesReceiptToolStripMenuItem.Enabled = True
176 'manage users
177 .UserInformationFileToolStripMenuItem.Enabled = False
178 'USERS LOG
179 .AuditTrailToolStripMenuItem.Enabled = False
180 'REPORTS
181 .ReportsToolStripMenuItem.Enabled = False
182 .SupplierProfileToolStripMenuItem.Enabled = False
183 .SupplierProductsToolStripMenuItem.Enabled = False
184 .ProductsReorderPointToolStripMenuItem1.Enabled = False
185 .PurchaseOrderToolStripMenuItem.Enabled = False
186 .PurchaseReceiveToolStripMenuItem.Enabled = False
187 .StockBalancesToolStripMenuItem.Enabled = False
188 'POINT OF PAYMENTS
189 .PointOfPaymentToolStripMenuItem1.Enabled = False
190 .SalesCollectionToolStripMenuItem.Enabled = False
191 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = False
192 .CollectionSummaryReportToolStripMenuItem.Enabled = False
193 .SalesReceiptToolStripMenuItem1.Enabled = False
194 .ProductPacingReportToolStripMenuItem.Enabled = False
195
196 ElseIf UCase(xUser_Access) = UCase("Stock Room") Then
197 .SystemFileToolStripMenuItem.Enabled = True
198 'Inventory File
199 .MasterFileToolStripMenuItem.Enabled = True
200 .SetCategoryFileToolStripMenuItem.Enabled = False
201 .SetItemFileToolStripMenuItem.Enabled = False
202 .SuppliersToolStripMenuItem.Enabled = False
203 .SuppliersProductToolStripMenuItem.Enabled = False
204 .ProductsReorderPointToolStripMenuItem.Enabled = True
205 .StockOrderToolStripMenuItem.Enabled = True
206 .StockMonitoringToolStripMenuItem.Enabled = True
207 .BarcodeFormToolStripMenuItem.Enabled = False
208 .UnitMeasureToolStripMenuItem.Enabled = False
209 .BusinessInformationToolStripMenuItem.Enabled = False
210 'POINT OF PAYMENTS
211 .PointOfPaymentToolStripMenuItem.Enabled = False
212 .CashieringToolStripMenuItem.Enabled = False
213 .SalesReceiptToolStripMenuItem.Enabled = False
214 'manage users
215 .UserInformationFileToolStripMenuItem.Enabled = False
216 'USERS LOG
217 .AuditTrailToolStripMenuItem.Enabled = False
218 'REPORTS
219 .ReportsToolStripMenuItem.Enabled = True
220 .SupplierProfileToolStripMenuItem.Enabled = False
221 .SupplierProductsToolStripMenuItem.Enabled = False
222 .ProductsReorderPointToolStripMenuItem1.Enabled = True
223 .PurchaseOrderToolStripMenuItem.Enabled = True
224 .PurchaseReceiveToolStripMenuItem.Enabled = True
225 .StockBalancesToolStripMenuItem.Enabled = True
226 'POINT OF PAYMENTS
227 .PointOfPaymentToolStripMenuItem1.Enabled = False
228 .SalesCollectionToolStripMenuItem.Enabled = False
229 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = False
230 .CollectionSummaryReportToolStripMenuItem.Enabled = False
231 .SalesReceiptToolStripMenuItem1.Enabled = False
232 .ProductPacingReportToolStripMenuItem.Enabled = False
233 ElseIf UCase(xUser_Access) = UCase("Sales Agent") Then
234 .SystemFileToolStripMenuItem.Enabled = True
235 'Inventory File
236 .MasterFileToolStripMenuItem.Enabled = True
237 .SetCategoryFileToolStripMenuItem.Enabled = True
238 .SetItemFileToolStripMenuItem.Enabled = True
239 .SuppliersToolStripMenuItem.Enabled = False
240 .SuppliersProductToolStripMenuItem.Enabled = False
241 .ProductsReorderPointToolStripMenuItem.Enabled = True
242 .StockOrderToolStripMenuItem.Enabled = True
243 .StockMonitoringToolStripMenuItem.Enabled = True
244 .BarcodeFormToolStripMenuItem.Enabled = True
245 .UnitMeasureToolStripMenuItem.Enabled = True
246 .BusinessInformationToolStripMenuItem.Enabled = False
247 'POINT OF PAYMENTS
248 .PointOfPaymentToolStripMenuItem.Enabled = False
249 .CashieringToolStripMenuItem.Enabled = False
250 .SalesReceiptToolStripMenuItem.Enabled = False
251 'manage users
252 .UserInformationFileToolStripMenuItem.Enabled = False
253 'USERS LOG
254 .AuditTrailToolStripMenuItem.Enabled = False
255 'REPORTS
256 .ReportsToolStripMenuItem.Enabled = True
257 .SupplierProfileToolStripMenuItem.Enabled = False
258 .SupplierProductsToolStripMenuItem.Enabled = False
259 .ProductsReorderPointToolStripMenuItem1.Enabled = True
260 .PurchaseOrderToolStripMenuItem.Enabled = True
261 .PurchaseReceiveToolStripMenuItem.Enabled = True
262 .StockBalancesToolStripMenuItem.Enabled = True
263 'POINT OF PAYMENTS
264 .PointOfPaymentToolStripMenuItem1.Enabled = False
265 .SalesCollectionToolStripMenuItem.Enabled = False
266 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = False
267 .CollectionSummaryReportToolStripMenuItem.Enabled = False
268 .SalesReceiptToolStripMenuItem1.Enabled = False
269 .ProductPacingReportToolStripMenuItem.Enabled = False
270 End If
271 End With
272 Me.Close()
273 Else
274 xcountx = xcountx + 1
275 If xcountx >= 3 Then
276 MsgBox("You have reach the maximum time of login !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
277 End
278 End If
279 MsgBox("Access denied !!!", MsgBoxStyle.Information, "Sales and Inventory")
280 Exit Sub
281 End If
282 ' End If
283 End Sub
284
285 Private Sub cmbtype_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmbtype.KeyDown
286 On Error Resume Next
287 Dim timex As String
288 If e.KeyCode = 13 Then
289 If Not checkServer() Then
290 FrmSERVERSETTINGS.ShowDialog()
291 Exit Sub
292 End If
293 sqlSTR = "SELECT * FROM TBL_Users WHERE Username='" & R_eplace(txtuser.Text) & "' AND userpass ='" & R_eplace(txtpassword.Text) & "' AND Access_Type ='" & cmbtype.Text & "'"
294 'MsgBox(sqlSTR)
295
296 ExecuteSQLQuery(sqlSTR)
297 If sqlDT.Rows.Count > 0 Then
298 'MDIMain.Show()
299 FrmPOSCASHIER.Close()
300 For i = 0 To sqlDT.Rows.Count - 1
301 If sqlDT.Rows(i)("username") <> txtuser.Text Or sqlDT.Rows(i)("userpass") <> txtpassword.Text Then
302 MsgBox("Access denied username or password !!!", MsgBoxStyle.Information, "Sales and Inventory")
303 If xcountx >= 3 Then
304 End
305 End If
306 xcountx = xcountx + 1
307 Exit Sub
308 End If
309 Next
310
311 username = sqlDT.Rows(0)("Username")
312 xUser_ID = sqlDT.Rows(0)("User_id")
313 xUser_Access = sqlDT.Rows(0)("Access_Type")
314 timex = TimeOfDay
315 _USER.Value = sqlDT.Rows(0)("lastname") & ", " & sqlDT.Rows(0)("firstname") & " " & sqlDT.Rows(0)("middlename")
316 sqlSTR = "INSERT INTO TBL_Audit_Log (User_ID, LOGIN) VALUES(" & xUser_ID & ", '" & timex & "')"
317 ExecuteSQLQuery(sqlSTR)
318
319 sqlSTR = "SELECT * FROM TBL_Audit_Log ORDER BY LOG_ID DESC"
320 ExecuteSQLQuery(sqlSTR)
321
322 LOGID = sqlDT.Rows(0)("LOG_ID")
323
324 Audit_Trail(xUser_ID, timex, "Login to system ")
325 With MDIMain
326 If UCase(xUser_Access) = UCase("administrator") Or UCase(xUser_Access) = UCase("Sales Agent") Or UCase(xUser_Access) = UCase("Stock Room") Then
327 sqlSTR = "SELECT TBL_Category_Item_File.Item_ID as 'ID', Item_Name as 'Name', TBL_Category_Item_File.Item_Description as 'Description / Item Number', TBL_Stocks_Balances.Item_Price as 'Price', Item_Reorder_Point as 'Reorder Point', Item_QTY as 'CURRENT STOCKS' " & _
328 "FROM TBL_Category_Item_File INNER JOIN " & _
329 "TBL_Stocks_Balances ON TBL_Category_Item_File.Item_ID = TBL_Stocks_Balances.Item_ID " & _
330 "WHERE TBL_Stocks_Balances.Item_QTY <= Item_Reorder_Point"
331 ExecuteSQLQuery(sqlSTR)
332
333 If sqlDT.Rows.Count > 0 Then
334 MsgBox("A Product(s) reach its critical level !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
335 .tmrcritical.Enabled = True
336 Else
337 .tmrcritical.Enabled = False
338 End If
339 Else
340 .cmdProductReorder.ForeColor = Color.Black
341 End If
342 End With
343
344 'MsgBox(xuserid & " " & xUser_ID)
345 If xuserid <> 0 Then
346 If xuserid <> xUser_ID Then
347 Dim oFrm As Form
348 For Each oFrm In MDIMain.MdiChildren
349 If oFrm.Name <> "FrmBG" And Not _
350 (TypeOf oFrm Is MDIMain) And Not (TypeOf oFrm Is FrmBG) Then
351
352 FormClose(oFrm)
353 oFrm.Close()
354 End If
355 Next
356 'just to make sure check
357 For i = 0 To MDIMain.lstShortCut.Items.Count - 1
358 MDIMain.lstShortCut.Items(i).Remove()
359 Next
360 End If
361 End If
362
363
364 With MDIMain
365 ' .tslabellog.Text = username
366 .lblUser.Text = username
367 .lbltoday.Text = Today
368 .aget()
369 .pnadvisory_Admin.Left = .Width - 100
370 '.pnadvisory_Admin.Top = .PanelHoldAdvisory.Top
371 .pnAdvisory_Stock.Left = .Width - 100
372 .pnAdvisory_Cashier.Left = .Width - 100
373 .pnAdvisory_SalesAgent.Left = .Width - 100
374 .Timer1.Enabled = True
375 If UCase(xUser_Access) = UCase("Administrator") Then
376 .SystemFileToolStripMenuItem.Enabled = True
377 'Inventory File
378 .MasterFileToolStripMenuItem.Enabled = True
379 .SetCategoryFileToolStripMenuItem.Enabled = True
380 .SetItemFileToolStripMenuItem.Enabled = True
381 .SuppliersToolStripMenuItem.Enabled = True
382 .SuppliersProductToolStripMenuItem.Enabled = True
383 .ProductsReorderPointToolStripMenuItem.Enabled = True
384 .StockOrderToolStripMenuItem.Enabled = True
385 .StockMonitoringToolStripMenuItem.Enabled = True
386 .BarcodeFormToolStripMenuItem.Enabled = True
387 .UnitMeasureToolStripMenuItem.Enabled = True
388 .BusinessInformationToolStripMenuItem.Enabled = True
389 'POINT OF PAYMENTS
390 .PointOfPaymentToolStripMenuItem.Enabled = True
391 .CashieringToolStripMenuItem.Enabled = True
392 .SalesReceiptToolStripMenuItem.Enabled = True
393 'manage users
394 .UserInformationFileToolStripMenuItem.Enabled = True
395 'USERS LOG
396 .AuditTrailToolStripMenuItem.Enabled = True
397 'REPORTS
398 .ReportsToolStripMenuItem.Enabled = True
399 .SupplierProfileToolStripMenuItem.Enabled = True
400 .SupplierProductsToolStripMenuItem.Enabled = True
401 .ProductsReorderPointToolStripMenuItem1.Enabled = True
402 .PurchaseOrderToolStripMenuItem.Enabled = True
403 .PurchaseReceiveToolStripMenuItem.Enabled = True
404 .StockBalancesToolStripMenuItem.Enabled = True
405 'POINT OF PAYMENTS
406 .PointOfPaymentToolStripMenuItem1.Enabled = True
407 .SalesCollectionToolStripMenuItem.Enabled = True
408 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = True
409 .CollectionSummaryReportToolStripMenuItem.Enabled = True
410 .SalesReceiptToolStripMenuItem1.Enabled = True
411 .ProductPacingReportToolStripMenuItem.Enabled = True
412
413 ElseIf UCase(xUser_Access) = UCase("Cashier") Then
414 .SystemFileToolStripMenuItem.Enabled = True
415 'Inventory File
416 .MasterFileToolStripMenuItem.Enabled = False
417 .SetCategoryFileToolStripMenuItem.Enabled = False
418 .SetItemFileToolStripMenuItem.Enabled = False
419 .SuppliersToolStripMenuItem.Enabled = False
420 .SuppliersProductToolStripMenuItem.Enabled = False
421 .ProductsReorderPointToolStripMenuItem.Enabled = False
422 .StockOrderToolStripMenuItem.Enabled = False
423 .StockMonitoringToolStripMenuItem.Enabled = False
424 .BarcodeFormToolStripMenuItem.Enabled = False
425 .UnitMeasureToolStripMenuItem.Enabled = False
426 .BusinessInformationToolStripMenuItem.Enabled = False
427 'POINT OF PAYMENTS
428 .PointOfPaymentToolStripMenuItem.Enabled = True
429 .CashieringToolStripMenuItem.Enabled = True
430 .SalesReceiptToolStripMenuItem.Enabled = True
431 'manage users
432 .UserInformationFileToolStripMenuItem.Enabled = True
433 'USERS LOG
434 .AuditTrailToolStripMenuItem.Enabled = False
435 'REPORTS
436 .ReportsToolStripMenuItem.Enabled = False
437 .SupplierProfileToolStripMenuItem.Enabled = False
438 .SupplierProductsToolStripMenuItem.Enabled = False
439 .ProductsReorderPointToolStripMenuItem1.Enabled = False
440 .PurchaseOrderToolStripMenuItem.Enabled = False
441 .PurchaseReceiveToolStripMenuItem.Enabled = False
442 .StockBalancesToolStripMenuItem.Enabled = False
443 'POINT OF PAYMENTS
444 .PointOfPaymentToolStripMenuItem1.Enabled = False
445 .SalesCollectionToolStripMenuItem.Enabled = False
446 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = False
447 .CollectionSummaryReportToolStripMenuItem.Enabled = False
448 .SalesReceiptToolStripMenuItem1.Enabled = False
449 .ProductPacingReportToolStripMenuItem.Enabled = False
450
451 ElseIf UCase(xUser_Access) = UCase("Stock Room") Then
452 .SystemFileToolStripMenuItem.Enabled = True
453 'Inventory File
454 .MasterFileToolStripMenuItem.Enabled = True
455 .SetCategoryFileToolStripMenuItem.Enabled = False
456 .SetItemFileToolStripMenuItem.Enabled = False
457 .SuppliersToolStripMenuItem.Enabled = False
458 .SuppliersProductToolStripMenuItem.Enabled = False
459 .ProductsReorderPointToolStripMenuItem.Enabled = True
460 .StockOrderToolStripMenuItem.Enabled = True
461 .StockMonitoringToolStripMenuItem.Enabled = True
462 .BarcodeFormToolStripMenuItem.Enabled = False
463 .UnitMeasureToolStripMenuItem.Enabled = False
464 .BusinessInformationToolStripMenuItem.Enabled = False
465 'POINT OF PAYMENTS
466 .PointOfPaymentToolStripMenuItem.Enabled = False
467 .CashieringToolStripMenuItem.Enabled = False
468 .SalesReceiptToolStripMenuItem.Enabled = False
469 'manage users
470 .UserInformationFileToolStripMenuItem.Enabled = True
471 'USERS LOG
472 .AuditTrailToolStripMenuItem.Enabled = False
473 'REPORTS
474 .ReportsToolStripMenuItem.Enabled = True
475 .SupplierProfileToolStripMenuItem.Enabled = False
476 .SupplierProductsToolStripMenuItem.Enabled = False
477 .ProductsReorderPointToolStripMenuItem1.Enabled = True
478 .PurchaseOrderToolStripMenuItem.Enabled = True
479 .PurchaseReceiveToolStripMenuItem.Enabled = True
480 .StockBalancesToolStripMenuItem.Enabled = True
481 'POINT OF PAYMENTS
482 .PointOfPaymentToolStripMenuItem1.Enabled = False
483 .SalesCollectionToolStripMenuItem.Enabled = False
484 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = False
485 .CollectionSummaryReportToolStripMenuItem.Enabled = False
486 .SalesReceiptToolStripMenuItem1.Enabled = False
487 .ProductPacingReportToolStripMenuItem.Enabled = False
488 ElseIf UCase(xUser_Access) = UCase("Sales Agent") Then
489 .SystemFileToolStripMenuItem.Enabled = True
490
491 'Inventory File
492 .MasterFileToolStripMenuItem.Enabled = True
493 .SetCategoryFileToolStripMenuItem.Enabled = True
494 .SetItemFileToolStripMenuItem.Enabled = True
495 .SuppliersToolStripMenuItem.Enabled = False
496 .SuppliersProductToolStripMenuItem.Enabled = False
497 .ProductsReorderPointToolStripMenuItem.Enabled = True
498 .StockOrderToolStripMenuItem.Enabled = True
499 .StockMonitoringToolStripMenuItem.Enabled = True
500 .BarcodeFormToolStripMenuItem.Enabled = True
501 .UnitMeasureToolStripMenuItem.Enabled = True
502 .BusinessInformationToolStripMenuItem.Enabled = False
503 'POINT OF PAYMENTS
504 .PointOfPaymentToolStripMenuItem.Enabled = False
505 .CashieringToolStripMenuItem.Enabled = False
506 .SalesReceiptToolStripMenuItem.Enabled = False
507 'manage users
508 .UserInformationFileToolStripMenuItem.Enabled = True
509 'USERS LOG
510 .AuditTrailToolStripMenuItem.Enabled = False
511 'REPORTS
512 .ReportsToolStripMenuItem.Enabled = True
513 .SupplierProfileToolStripMenuItem.Enabled = False
514 .SupplierProductsToolStripMenuItem.Enabled = False
515 .ProductsReorderPointToolStripMenuItem1.Enabled = True
516 .PurchaseOrderToolStripMenuItem.Enabled = True
517 .PurchaseReceiveToolStripMenuItem.Enabled = True
518 .StockBalancesToolStripMenuItem.Enabled = True
519 'POINT OF PAYMENTS
520 .PointOfPaymentToolStripMenuItem1.Enabled = False
521 .SalesCollectionToolStripMenuItem.Enabled = False
522 .SalesCollectionReportVOIDToolStripMenuItem.Enabled = False
523 .CollectionSummaryReportToolStripMenuItem.Enabled = False
524 .SalesReceiptToolStripMenuItem1.Enabled = False
525 .ProductPacingReportToolStripMenuItem.Enabled = False
526 End If
527 End With
528 Me.Close()
529 Else
530 xcountx = xcountx + 1
531 If xcountx >= 3 Then
532 MsgBox("You have reach the maximum time of login !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
533 End
534 End If
535
536 MsgBox("Access denied !!!", MsgBoxStyle.Information, "Sales and Inventory")
537 Exit Sub
538 End If
539 End If
540 End Sub
541
542 Private Sub cmdclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclose.Click
543 'Me.Close()
544 'End
545 If MsgBox("Do you really want to quit the system ???", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Sales and Inventory") = MsgBoxResult.Yes Then
546 End
547 End If
548 End Sub
549
550 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
551 'If Me.Opacity >= 1 Then Timer1.Enabled = False
552 'ix = ix + 1
553 'Me.Opacity = ix / 100
554 'Application.DoEvents()
555 End Sub
556
557 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
558 'ix -= 1
559 'Me.Opacity = ix / 100
560 'Application.DoEvents()
561 'If ix <= 0 Then End
562 End Sub
563
564 Private Sub cmbtype_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbtype.SelectedIndexChanged
565
566 End Sub
567
568 Private Sub cmdserver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdserver.Click
569 FrmSERVERSETTINGS.ShowDialog()
570 End Sub
571
572 Private Sub txtpassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpassword.KeyDown
573 If e.KeyCode = 13 Then
574 Call cmdlogin_Click(0, AcceptButton)
575 End If
576 End Sub
577 End Class
